home *** CD-ROM | disk | FTP | other *** search
/ Aminet 21 / Aminet 21 (1997)(GTI - Schatztruhe)[!][Oct 1997].iso / Aminet / dev / misc / gms_dev.lha / GMS / Source / C / Screens / HiResScreen.c < prev    next >
Encoding:
C/C++ Source or Header  |  1997-07-09  |  1.1 KB  |  42 lines
  1. /*
  2. ** Name:      Hi-Res Picture Display
  3. ** Author:    Paul Manias
  4. ** Copyright: DreamWorld Productions (c) 1996-1997.  Freely Distributable.
  5. **
  6. ** Doc:       Opens a screen of 640x256 pixels in HIRES LACED mode.  You
  7. **            can even try SuperHiRes (SHIRES) if you change the appropriate
  8. **            flag in the GameScreen structure.
  9. **
  10. ** SAS/C:     1> sc HiResScreen.c link startup=LIB:gms.o data=far nostackcheck
  11. **  Dice:     1> dcc -l0 -mD gms.o HiResScreen.c -o HiResScreen
  12. **
  13. */
  14.  
  15. #include <proto/games.h>
  16.  
  17. extern struct GMSBase *GMSBase;
  18. APTR   PREFSNAME = DEFAULT;
  19.  
  20. void main(void)
  21. {
  22.   struct GameScreen *GameScreen;
  23.   struct Picture *pic;
  24.  
  25.   if (pic = LoadPicFile("GMS:demos/data/PIC.Pic640x256",GETPALETTE|VIDEOMEM)) {
  26.      GameScreen = GetScreen();
  27.      CopyStructure(pic,GameScreen);
  28.      GameScreen->MemPtr1   = pic->Data;
  29.      GameScreen->ScrWidth  = 640;
  30.      GameScreen->ScrHeight = 256;
  31.      GameScreen->ScrMode   = HIRES|LACED;
  32.  
  33.      if (AddScreen(GameScreen)) {
  34.         ShowScreen(GameScreen);
  35.         WaitLMB();
  36.      DeleteScreen(GameScreen);
  37.    }
  38.    FreePic(pic);
  39.   }
  40. }
  41.  
  42.